home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ WinNT RAS Options 1.xpl < prev    next >
Text File  |  2001-05-22  |  3KB  |  93 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Network\RAS & DUN"
  5. "NAME"="Windows NT/2K/XP RAS Options"
  6. "VERSION"="1.35"
  7. "OSVERSION"="010101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Keep RAS sessions alive"
  10. "TEXT 2"="Allow RAS dial-in access"
  11. "TEXT 3"="Enable saving RAS/DUN Passwords"
  12. "TEXT 4"="Log every connection that is made"
  13. "DESCRIPTION 1"="The first options makes sure that the connection to your ISP isn't killed when the line is silent."
  14. "DESCRIPTION 2"="The second option can be used to disabled RAS dial-in access to this machine alltogether."
  15. "DESCRIPTION 3"="Third option: The Windows Dial-Up Networking (DUN, RAS) program allows you to save a user name and password for each dial-up connection. While this is convenient, it can be very insecure if your PC or Laptop ever gets stolen! By disabling this option, DUN will forget every password that was saved and will not allow any user to save the password."
  16. "DESCRIPTION 4"=""Log": if this option is enabled, each RAS connection will be logged to the file %systemroot%/system32/RAS/device.log"
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="Thanks to Little Dave [sirturque@bigfoot.com] for the "enabled" vs "disabled" notice."
  21. "COMMENT 2"=" "
  22.  
  23.  
  24.  sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\KeepRasConnections"
  25. sP2="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Network\NoDialIn"
  26. sP3="HKLM\SYSTEM\CurrentControlSet\Services\RasMan\Parameters\DisableSavePassword"
  27. sp4="HKLM\SYSTEM\CurrentControlSet\Services\RasMan\Parameters\Logging"
  28.  
  29. Sub Plugin_Initialize 
  30.     i=RegReadValue(sp)  
  31.     if i=1 then
  32.        SetUIElement 1,true
  33.     end if
  34.  
  35.     i=RegReadValue(sp2)  
  36.     if i=0 or IsEmpty(i) then
  37.        SetUIElement 2,true
  38.     end if
  39.  
  40.     i=RegReadValue(sp3)  
  41.     if i=0 or IsEmpty(i) then
  42.        SetUIElement 3,true
  43.     end if
  44.  
  45.     i=RegReadValue(sp4)  
  46.     if i=1 then
  47.        SetUIElement 4,true
  48.     end if
  49. End Sub
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  55.  b=GetUIElement(1)
  56.  if b=true then
  57.     Call RegWriteValue(sp,"1",1)
  58.  else
  59.   i=RegReadValue(sp)  
  60.   if not isempty(i) then
  61.      Call RegDeleteValue(sp)
  62.   end if
  63.  end if
  64.  
  65.  b=GetUIElement(2)
  66.  if b=true then
  67.     Call RegWriteValue(sp2,"0",2)
  68.  else
  69.     Call RegWriteValue(sp2,"1",2)
  70.  end if
  71.  
  72.  b=GetUIElement(3)
  73.  if b=true then
  74.     Call RegWriteValue(sp3,"0",2)
  75.  else
  76.     Call RegWriteValue(sp3,"1",2)
  77.  end if
  78.  
  79.  b=GetUIElement(3)
  80.  if b=true then
  81.     Call RegWriteValue(sp4,"1",2)
  82.  else
  83.     Call RegWriteValue(sp4,"0",2)
  84.  end if
  85.  
  86. End Sub
  87.  
  88. Sub Plugin_Terminate 
  89. End Sub
  90.  
  91.  
  92.  
  93.